home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Examples / DemoDialogs / MDemoDialogs.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.2 KB  |  44 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  2. { MDemoDialogs.p }
  3. { Copyright © 1988 - 1990 by Apple Computer, Inc. All rights reserved. }
  4.  
  5. PROGRAM DemoDialogs;
  6.  
  7.   {$MC68020-}                                            { The main program must be universal code }
  8.   {$MC68881-}
  9.  
  10.     USES
  11.         { • Required for this unit's interface }
  12.  
  13.         { • MacApp }
  14.         UMacApp,
  15.  
  16.         { • Building Blocks }
  17.         UPrinting, UGridView, UTEView, UDialog,
  18.  
  19.         { • Implementation use }
  20.         UDemoDialogs;
  21.  
  22.     VAR
  23.         gTestApplication:    TTestApplication;            { The application object }
  24.  
  25.     BEGIN
  26.     InitToolBox;                                        { Essential toolbox and utilities
  27.                                                           initialization }
  28.     IF ValidateConfiguration(gConfiguration) THEN        { Make sure we can run }
  29.         BEGIN
  30.         { Continue with remainder of initialization }
  31.         InitUMacApp(12);                                { Initialize MacApp; 12 calls to MoreMasters}
  32.         InitUTEView;                                    { Initialize TEView unit }
  33.         InitUDialog;                                    { Initialize other units }
  34.         InitUGridView;
  35.  
  36.         New(gTestApplication);                            { Allocate a new application object }
  37.         FailNil(gTestApplication);
  38.         gTestApplication.ITestApplication(kFileType);    { Initialize that new object }
  39.         gTestApplication.Run;                            { Run the application. }
  40.         END
  41.     ELSE
  42.         StdAlert(phUnsupportedConfiguration);
  43.     END.
  44.